home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.07.lha / AmiCAD / ARexx / NewScript.AmiCAD < prev    next >
Text File  |  2000-11-12  |  3KB  |  81 lines
  1. /* NewScript.AmiCAD, édition d'un nouveau script à l'aide de AmiTex
  2.    Version 1.00: 3 Mars 1998 © R.Florac
  3.    Version 1.01: 13 avril 1999 (correction bug saisie nom du script)
  4.    Version 1.02: 10 novembre 2000 (localisation anglais/français)
  5.    $VER: 1.02 (© R.Florac, 10 novembre 2000)
  6.    Chargement automatique d'un nouveau script dans Amitex depuis AmiCAD
  7.    Le script lance Amitex s'il ne tourne pas et demande le
  8.    chargement du fichier squelette.AmiCAD dans une fenêtre.
  9.    Le curseur est directement placé sur la ligne où doit
  10.    débuter la partie particulière au script, après les
  11.    déclarations usuelles.
  12.    L'utilisateur est invité à donner le nom du nouveau script
  13.    afin de donner le titre adéquat au script.
  14.    Ce script peut être appelé depuis l'un des menus Macros/ARexx.
  15.    Il peut être adapté à n'importe quel éditeur de texte
  16.    possédant une interface ARexx.
  17.  
  18.    This script loads a new script in an editor for editing.
  19.    It's written for my text editor, Amitex. Adapt it to your
  20.    own editor to suit to your needs.
  21.    Press the CTRL key while selecting an ARexx menu entry
  22.    to call this script under AmiCAD
  23. */
  24.  
  25. signal on error             /* pour l'interception des erreurs */
  26. signal on syntax
  27.  
  28. options results
  29. cr='0a'x
  30.  
  31. port = ADDRESS()                    /* lecture du nom du port AmiCAD */
  32.  
  33. 'LANGUAGE'
  34. if result="français.language" then fr=1
  35. else fr=0
  36.  
  37. address command
  38. if ~show(p, "AMITEX") then do       /* A améliorer (AmiCAD0, AmiCAD1...) */
  39.     f=0                 /* il n'y avait pas de fenêtre ouverte */
  40.     'run > nil:' "SYS:Tools/Amitex/AmiTex"  /* chargement de l'éditeur */
  41.     waitforport "AMITEX"
  42. end
  43. else f=1                /* il y a déjà une fenêtre active */
  44.  
  45. ADDRESS(AMITEX)
  46.  
  47. if fr=1 then do
  48.     if f=1 then 'NEW("NouveauScript.AmiCAD")'           /* demande l'ouverture d'une autre fenêtre */
  49.     'LOAD("Travail:AmiCAD/ARexx/squelette.AmiCAD")'     /* demande le chargement du script "squelette" */
  50.  
  51.     'ASKTEXT("Quel est le nom'cr'de ce nouveau script ?", ".AmiCAD")'   /* demande du titre */
  52.     titre = result
  53.     if titre ~= "" then 'FILENAME("Travail:AmiCAD/ARexx/'titre'")'      /* renomme la fenêtre */
  54. end
  55. else do
  56.     if f=1 then 'NEW("NewScript.AmiCAD")'
  57.     'LOAD("Work:AmiCAD/ARexx/squelette.AmiCAD")'
  58.  
  59.     'ASKTEXT("What is the name'cr'of this new script ?", ".AmiCAD")'
  60.     titre = result
  61.     if titre ~= "" then 'FILENAME("Work:AmiCAD/ARexx/'titre'")'
  62. end
  63.  
  64. 'GOTO(1,10)'
  65.  
  66. exit
  67.  
  68. /* Traitement des erreurs, interruption du programme */
  69. syntax:
  70. address (port)
  71. erreur=RC
  72. if fr=1 then 'MESSAGE("Script NewScript.amiCAD :"+CHR(10)+"Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  73. else 'MESSAGE("NewScript.amiCAD script:"+CHR(10)+"Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  74. exit
  75.  
  76. error:
  77. address (port)
  78. if fr=1 then 'MESSAGE("Script NewScript.amiCAD :"+CHR(10)+"Erreur en ligne 'SIGL'")'
  79. else 'MESSAGE("NewScript.amiCAD script:"+CHR(10)+"Error in line 'SIGL'")'
  80. exit
  81.